sub Average{
	$n = scalar(@_);
	$sum = 0;

	foreach $item (@_){
		$sum += $item;
	}

	$average = $sum / $n;
	print "average is $average\n";
}

Average(10,11,2,2,3,4,5);